home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 004 / mathstat.arc / M22.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1983-11-14  |  896 b   |  48 lines
  1. 0  CLS:PRINT
  2. 10   CLS:PRINT "SIMULTANEOUS EQUATIONS"
  3. 20   PRINT 
  4. 30   DIM A(9,10)
  5. 40   PRINT "NUMBER OF EQUATIONS";
  6. 50   INPUT R
  7. 60   PRINT "COEFFICIENT MATRIX:"
  8. 70   FOR J = 1 TO R
  9. 80   PRINT "EQUATION ";J
  10. 90   FOR I = 1 TO R + 1
  11. 100   IF I = R + 1 THEN 130
  12. 110   PRINT " COEFFICIENT ";I;
  13. 120   GOTO 140
  14. 130   PRINT " CONSTANT ";
  15. 140   INPUT A(J,I)
  16. 150   NEXT I
  17. 160   NEXT J
  18. 170   FOR J = 1 TO R
  19. 180   FOR I = J TO R
  20. 190   IF A(I,J) <  > 0 THEN 230
  21. 200   NEXT I
  22. 210   PRINT "NO UNIQUE SOLUTION "
  23. 220   GOTO 440
  24. 230   FOR K = 1 TO R + 1
  25. 240  X = A(J,K)
  26. 250  A(J,K) = A(I,K)
  27. 260  A(I,K) = X
  28. 270   NEXT K
  29. 280  Y = 1 / A(J,J)
  30. 290   FOR K = 1 TO R + 1
  31. 300  A(J,K) = Y * A(J,K)
  32. 310   NEXT K
  33. 320   FOR I = 1 TO R
  34. 330   IF I = J THEN 380
  35. 340  Y =  - A(I,J)
  36. 350   FOR K = 1 TO R + 1
  37. 360  A(I,K) = A(I,K) + Y * A(J,K)
  38. 370   NEXT K
  39. 380   NEXT I
  40. 390   NEXT J
  41. 400   PRINT 
  42. 410   FOR I = 1 TO R
  43. 420   PRINT "X";I;" = "; INT (A(I,R + 1) * 1000 + 0.5) / 1000
  44. 430   NEXT I
  45. 435  PRINT "Run Again (Y/N) ;A$
  46. 436  IF A$="y" OR A$ = "Y" THEN 10
  47. 440   RUN "MATH"
  48.